home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 November / MACPOWER-1997-11.ISO.7z / MACPOWER-1997-11.ISO / AMUG / MUSIC / bol-processor-271-data.sit / bol-processor-271-data / BP2 examples / BP2 data / BP2test.orc < prev    next >
Text File  |  1997-06-03  |  1KB  |  45 lines
  1. ; This is a simple orchestra file for BP2's default Csound score output
  2. ; It follows the new specfications handled by BP2 version 2.7.1 and above.
  3. ; (See "Csound tables")
  4.  
  5. ; It contains one single instrument: an oscillator using wave-table 1
  6. ; Argument p2 is the start date, p3 the duration (as per the standard)
  7. ; Argument p4 is the pitch in octave point pitch-class format
  8. ; Volume (range 0..127) is supplied by performance control _volume()
  9. ; to arguments p5 (beginning value) and p6 (end value), or via the table
  10. ; whose index is supplied by p7.
  11. ; Pitchbend is supplied in cents to arguments p8 (beginning value)
  12. ; and p9 (end value), or via the table whose index is supplied by p10.
  13.  
  14.     sr = 22050
  15.     kr = 2205
  16.     ksmps = 10
  17.     nchnls = 1
  18.  
  19.     instr    1
  20.     
  21. ik1    = 32767. / 127.
  22. ik2    = log(2.) / 1200.
  23.  
  24. ifvol = p7
  25. ifcents = p10
  26.  
  27. kvol line p5, p3, p6
  28. if (ifvol <= 0) goto volumelin
  29. ilenvol = ftlen(ifvol)
  30. kndxvol line 0, p3, ilenvol
  31. kvol tablei kndxvol, ifvol
  32.  
  33. volumelin: kcents line p8, p3, p9
  34. if (ifcents <= 0) goto pitchbendlin
  35. ilencents = ftlen(ifcents)
  36. kndxcents line 0, p3, ilencents
  37. kcents tablei kndxcents, ifcents
  38.  
  39. pitchbendlin: kpitch = cpspch(p4) * exp(kcents * ik2)
  40. kamp = kvol * ik1
  41.  
  42. a1    oscil    kamp, kpitch, 1
  43.     out    a1
  44.     endin
  45.